home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Network Win9x 1.xpl < prev    next >
Text File  |  2000-11-15  |  2KB  |  64 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Network\Security\Passwords"
  5. "NAME"="Windows 9x/ME Options"
  6. "VERSION"="1.16"
  7. "OSVERSION"="10101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Allow plain text passwords"
  10. "TEXT 2"="Allow local caching of passwords"
  11. "DESCRIPTION 1"="Windows 9x does not support plain text passwords for security reasons, however, some servers, such as Samba, Unix, or Linux, often require plain text passwords to allow a user to logon to them."
  12. "DESCRIPTION 2"="Enable the first option if you require plain text passwords, but keep in mind this will reduce your password security."
  13. "DESCRIPTION 3"=" "
  14. "DESCRIPTION 4"="If option two is activated, Windows creates cache files for any network resources this computer accesses."
  15. "DESCRIPTION 5"="Although this features saves you a lot of time, these PWL (PassWordList) files are easy to crack. Disable this option so Windows no longer generates PWL files."
  16. "AUTHOR"="Xteq Systems"
  17. "CONTACTURL"="http://www.xteq.com"
  18. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  19. "COMMENT 1"=" "
  20. "COMMENT 2"="Thanks to CptSiskoX for his help!"
  21.  
  22.  
  23. sPath="HKLM\System\CurrentControlSet\Services\VxD\Vnetsup\"
  24. sV1="EnablePlainTextPassword"
  25.  
  26. sPath2="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Network\"
  27. sV2="DisablePwdCaching"
  28.  
  29. Sub Plugin_Initialize 
  30.     i=RegReadValue(sPath & sV1)
  31.     if i=1 then SetUIElement 1,true
  32.  
  33.     i=RegReadValue(sPath & sV2)
  34.     if i=0 or IsEmpty(i) then SetUIElement 2,true
  35. End Sub
  36.  
  37. Sub Plugin_CheckData(ElementIndex)
  38. End Sub
  39.  
  40. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  41.  b=GetUIElement(1)
  42.  if b=false then
  43.     e=RegReadValue(sPath & sV1)
  44.     if IsEmpty(e)=false then
  45.        Call RegDeleteValue(sPath & sV1)
  46.     end if
  47.  else
  48.    Call RegWriteValue(sPath & sV1,1,2) 
  49.  end if
  50.  
  51.  b=GetUIElement(2)
  52.  if b=true then
  53.    Call RegWriteValue(sPath2 & sV2,0,2) 
  54.  else
  55.    Call RegWriteValue(sPath2 & sV2,1,2) 
  56.  end if
  57.  
  58.  
  59.  Call Restart()
  60. End Sub
  61.  
  62. Sub Plugin_Terminate 
  63. End Sub
  64.